home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / appl / fontchan.sit / Font Changer next >
Text File  |  1986-06-10  |  801b  |  48 lines
  1. /* Font Changer - a program to change all of the fonts/styles in a MacWrite document
  2.     into another font/style.  
  3.     
  4.     Programmer : Tom Dowdy, Notre Dame Computing Center
  5.     Copyright : 1986 Tom Dowdy
  6.  
  7.     Starting Date : May 2, 1986
  8. */
  9.  
  10. #include     <qd.h>
  11. #include    <qdvars.h>
  12. #include     <win.h>
  13. #include     <menu.h>
  14. #include     <event.h>
  15. #include     <te.h>
  16. #include     <stdio.h>
  17. #include    <dialog.h>
  18. #include    <seg.h>
  19. #include    <ctype.h>
  20.  
  21. main()
  22. {
  23.     maxapplzone();
  24.     moremasters();
  25.     moremasters();
  26.     moremasters();
  27.     moremasters();
  28.     
  29.     initgraf(&theport);
  30.     initfonts();
  31.     flushevents(everyevent,0);
  32.     initwindows();
  33.     teinit();
  34.     initdialogs(NULL);
  35.     initcursor();
  36.     dodialog();
  37. }
  38.  
  39. dodialog()
  40. {
  41.     dialogptr    dptr;
  42.     dialogrecord    drec;
  43.     int        hit;
  44.     
  45.     dptr = getnewdialog(128, &drec, (ptr)-1);
  46.     drawdialog(dptr);
  47.     modaldialog(NULL,&hit);
  48. }